home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pcsecu1a / lockmous.bas < prev   
Encoding:
BASIC Source File  |  1999-05-29  |  963 b   |  47 lines
  1. Attribute VB_Name = "LockMouse"
  2. Option Explicit
  3.  
  4. Type RECT
  5.     Left As Long
  6.     Top As Long
  7.     Right As Long
  8.     Bottom As Long
  9.     End Type
  10.  
  11. Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
  12. Public Sub DisableTrap(CurForm As Form)
  13.  
  14.     Dim erg As Long
  15.     Dim NewRect As RECT
  16.     
  17.  
  18.  
  19.     With NewRect
  20.         .Left = 0&
  21.         .Top = 0&
  22.         .Right = Screen.Width / Screen.TwipsPerPixelX
  23.         .Bottom = Screen.Height / Screen.TwipsPerPixelY
  24.     End With
  25.  
  26.     erg& = ClipCursor(NewRect)
  27. End Sub
  28. Public Sub EnableTrap(CurForm As Form)
  29.  
  30.     Dim x As Long, y As Long, erg As Long
  31.     Dim NewRect As RECT
  32.     x& = Screen.TwipsPerPixelX
  33.     y& = Screen.TwipsPerPixelY
  34.    
  35.  
  36.  
  37.     With NewRect
  38.         .Left = CurForm.Left / x&
  39.         .Top = CurForm.Top / y&
  40.         .Right = .Left + CurForm.Width / x&
  41.         .Bottom = .Top + CurForm.Height / y&
  42.     End With
  43.  
  44.     erg& = ClipCursor(NewRect)
  45. End Sub
  46.  
  47.